Function sScrypt(sWord As String, sPass As String, Optional bDecrypt As Boolean = False)
    Dim lTemp       As Long
    Dim sCrypted    As String
    Dim sTemp       As String
    Dim sDecrypted  As String
    Dim Ttemp()     As String
    
If bDecrypt = True Then GoTo decrypt

For i = 1 To Len(sWord)
    lTemp = Asc(Mid(sWord, i, 1)) * (Len(sPass))
    sCrypted = sCrypted & "ll" & lTemp
Next

sScrypt = sCrypted

GoTo finish

decrypt:
Ttemp = Split(sWord, "ll")

For i = 1 To UBound(Ttemp)
    sTemp = Chr(Ttemp(i) / (Len(sPass)))
    sDecrypted = sDecrypted & sTemp
Next

sScrypt = sDecrypted

finish:
End Function


Encrypt : MsgBox  = sScrypt("Hello This will be crypted", "my awesome password")
Decrypt : MsgBox  = sScrypt("your encrypted string has to be here", "my awesome password", TRUE)